home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Dev / gcc263-inclib.lha / gnu / geninline / mklibamiga / gluesrc1.lha / large / IEEEDPPow.s < prev    next >
Encoding:
Text File  |  1994-09-27  |  226 b   |  15 lines
  1. .text; .even; .globl _IEEEDPPow
  2.  
  3. _IEEEDPPow:
  4.     moveml #0x3002,sp@-
  5.     movel _MathIeeeDoubTransBase,a6
  6.     movel sp@(16),d2
  7.     movel sp@(20),d3
  8.     movel sp@(24),d0
  9.     movel sp@(28),d1
  10. #APP
  11.     jsr a6@(-0x5a)
  12. #NO_APP
  13.     moveml sp@+,#0x400c
  14.     rts
  15.